home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Talks & Papers / Timothy Knox / Pocket6.3 / Source / System7Resources.txt < prev    next >
Text File  |  1994-06-24  |  13KB  |  422 lines
  1. ; this is: System7Resources.txt  7/4/91  1:08:00AM
  2. ; Mon Apr 13 1992  00:00:00 -- PocketForth 0.6
  3. ; alert color tables
  4. ; Sun Jul 04 1993  07:53:00 -- aete, etc. 0.6.3
  5.  
  6.  
  7. .ALIGN 2
  8. RESOURCE    'aete'    0        ; information about apple events
  9.     DC.W    $90,0,0,1        ; I don't know what this means...
  10.     DC.B    $0E,'Required Suite'
  11.     DC.B    $2C,'Events that every application should support'
  12.     DC.L    'reqd'
  13.     DC.W    1,1,0,0,0,0        ; its lifted from some other apps.
  14.  
  15. .ALIGN 2
  16. RESOURCE    'actb'    257    'About'
  17.     DC.L    $00000000,$00000004    ; Color table for About dialog
  18.     DC.L    $0000FFFF,$FFFFCCCC    
  19.     DC.L    $00019999,$33333333
  20.     DC.L    $00020000,$00000000
  21.     DC.L    $00030000,$00000000
  22.     DC.L    $0004FFFF,$FFFFFFFF
  23.  
  24. .ALIGN 2
  25. RESOURCE    'actb'    258    'Red Alert'
  26.     DC.L    $00000000,$00000004    ; color table for red alert
  27.     DC.L    $0000AAAA,$00000000
  28.     DC.L    $00010000,$00000000
  29.     DC.L    $00020000,$00000000
  30.     DC.L    $00030000,$00000000
  31.     DC.L    $0004FFFF,$FFFFFFFF
  32.  
  33. ; help resources
  34.  
  35. .ALIGN 2
  36. RESOURCE    'hfdr'    59840    ; unsigned -5696
  37.     DC.W    2    ; version
  38.     DC.L    0,0    ; options+ID
  39.     DC.W    1    ; number
  40.  
  41.     DC.W    20,3    ; HMStringResItem
  42.     DC.W    1,16    ; STR# 1, item 16
  43.     DC.W    1,16
  44.     DC.W    1,16
  45.     DC.W    1,16    
  46.  
  47. .ALIGN 2
  48. RESOURCE    'hmnu'    1    'Apple'
  49.     DC.W    2    ; version
  50.     DC.L    0,0    ; options
  51.     DC.W    2    ; number of items+1
  52.  
  53.     DC.W    4,256    ; HMSkipItem for missing & null
  54.  
  55.     DC.W    4,256    ; HMSkipItem for title
  56.  
  57.     DC.W    20,3    ; HMStringResItem
  58.     DC.W    1,1    ; STR# 1, item 1
  59.     DC.W    0,0    ;
  60.     DC.W    0,0    ;
  61.     DC.W    0,0    ;
  62.  
  63. .ALIGN 2
  64. RESOURCE    'hmnu'    2    'File'
  65.     DC.W    2    ; version
  66.     DC.L    0,0    ; options
  67.     DC.W    9    ; number of items+1
  68.  
  69.     DC.W    4,256    ; HMSkipItem for missing & null
  70.  
  71.     DC.W    20,3    ; HMStringResItem
  72.     DC.W    1,2    ; STR# 1, item 2
  73.     DC.W    0,0    ;
  74.     DC.W    1,19    ; dimmed menu title
  75.     DC.W    0,0    ;
  76.  
  77.     DC.W    20,3    ; HMStringResItem
  78.     DC.W    1,3    ; STR# 1, item 3
  79.     DC.W    0,0    ;
  80.     DC.W    0,0    ;
  81.     DC.W    0,0    ;
  82.  
  83.     DC.W    4,256    ; HMSkipItem for seperator
  84.  
  85.     DC.W    20,3    ; HMStringResItem
  86.     DC.W    1,4    ; STR# 1, item 4
  87.     DC.W    0,0    ;
  88.     DC.W    0,0    ;
  89.     DC.W    0,0    ;
  90.  
  91.     DC.W    20,3    ; HMStringResItem
  92.     DC.W    1,5    ; STR# 1, item 5
  93.     DC.W    0,0    ;
  94.     DC.W    0,0    ;
  95.     DC.W    0,0    ;
  96.  
  97.     DC.W    4,256    ; HMSkipItem for seperator
  98.  
  99.     DC.W    20,3    ; HMStringResItem
  100.     DC.W    1,6    ; STR# 1, item 6
  101.     DC.W    0,0    ;
  102.     DC.W    0,0    ;
  103.     DC.W    0,0    ;
  104.  
  105.     DC.W    4,256    ; HMSkipItem for seperator
  106.  
  107.     DC.W    20,3    ; HMStringResItem
  108.     DC.W    1,7    ; STR# 1, item 7
  109.     DC.W    0,0    ;
  110.     DC.W    0,0    ;
  111.     DC.W    0,0    ;
  112.  
  113. .ALIGN 2
  114. RESOURCE    'hmnu'    3    'Edit'
  115.     DC.W    2    ; version
  116.     DC.L    0,0    ; options
  117.     DC.W    7    ; number of items+1
  118.  
  119.     DC.W    4,256    ; HMSkipItem for missing & null
  120.  
  121.     DC.W    20,3    ; HMStringResItem
  122.     DC.W    1,8    ; STR# 1, item 8
  123.     DC.W    0,0    ;
  124.     DC.W    1,20    ; dimmed menu title
  125.     DC.W    0,0    ;
  126.  
  127.     DC.W    20,3    ; HMStringResItem
  128.     DC.W    1,9    ; STR# 1, item 9
  129.     DC.W    0,0    ;
  130.     DC.W    0,0    ;
  131.     DC.W    0,0    ;
  132.  
  133.     DC.W    4,256    ; HMSkipItem for seperator
  134.  
  135.     DC.W    20,3    ; HMStringResItem
  136.     DC.W    1,10    ; STR# 1, item 10
  137.     DC.W    0,0    ;
  138.     DC.W    0,0    ;
  139.     DC.W    0,0    ;
  140.  
  141.     DC.W    20,3    ; HMStringResItem
  142.     DC.W    1,11    ; STR# 1, item 11
  143.     DC.W    0,0    ;
  144.     DC.W    0,0    ;
  145.     DC.W    0,0    ;
  146.  
  147.     DC.W    20,3    ; HMStringResItem
  148.     DC.W    1,12    ; STR# 1, item 12
  149.     DC.W    0,0    ;
  150.     DC.W    0,0    ;
  151.     DC.W    0,0    ;
  152.  
  153.     DC.W    20,3    ; HMStringResItem
  154.     DC.W    1,13    ; STR# 1, item 13
  155.     DC.W    0,0    ;
  156.     DC.W    0,0    ;
  157.     DC.W    0,0    ;
  158.  
  159. .ALIGN 2
  160. RESOURCE    'hrct'    128
  161.     DC.W    2    ; version
  162.     DC.L    0,0    ; options+ID
  163.     DC.W    1    ; number of rectangles
  164.  
  165.     DC.W    20,3    ; HMStringResItem
  166.     DC.W    35,55    ;
  167.     DC.W    0,0,1024,1024    ; hot rect
  168.     DC.W    1,14    ; STR# 1, item 14
  169.  
  170. .ALIGN 2
  171. RESOURCE    'hwin'    128
  172.     DC.W    2    ; version
  173.     DC.L    0    ; options
  174.     DC.W    2    ; number of rectangles
  175.  
  176.     DC.W    128    ; ID of hrct
  177.     DC.L    'hrct'
  178.     DC.W    12    ; length of string to compare
  179.     DC.B    12,'Pocket Forth'    ; window name
  180.  
  181. .ALIGN 2
  182. RESOURCE    'hdlg'    257
  183.     DC.W    2    ; version
  184.     DC.W    0    ; start with item 0
  185.     DC.L    0,0    ; options+ID+variation
  186.     DC.W    1    ; number of items
  187.  
  188.     DC.W    4,256    ; HMSkipItem for missing & null
  189.  
  190.     DC.W    20,3    ; HMStringResItem
  191.     DC.W    30,170    ; tip location
  192.     DC.W    0,0,0,0    ; default alternate rect
  193.     DC.W    1,15    ; string for enabled
  194.     DC.W    0,0    ; never dimmed
  195.     DC.W    0,0    ; or checked
  196.     DC.W    0,0    ; or marked either
  197.     
  198. .ALIGN 2
  199. RESOURCE    'hdlg'    259
  200.     DC.W    2    ; version
  201.     DC.W    0    ; start with item 0
  202.     DC.L    0,0    ; options+ID+variation
  203.     DC.W    2    ; number of items
  204.  
  205.     DC.W    4,256    ; HMSkipItem for missing & null
  206.  
  207.     DC.W    20,3    ; HMStringResItem
  208.     DC.W    0,0    ; tip location
  209.     DC.W    0,0,0,0    ; default alternate rect
  210.     DC.W    1,17    ; string for enabled
  211.     DC.W    0,0    ; never dimmed
  212.     DC.W    0,0    ; or checked
  213.     DC.W    0,0    ; or marked either
  214.  
  215.     DC.W    20,3    ; HMStringResItem
  216.     DC.W    0,0    ; tip location
  217.     DC.W    0,0,0,0    ; default alternate rect
  218.     DC.W    1,18    ; string for enabled
  219.     DC.W    0,0    ; never dimmed
  220.     DC.W    0,0    ; or checked
  221.     DC.W    0,0    ; or marked either
  222.     
  223. .ALIGN 2
  224. RESOURCE    'STR#'    1
  225.     DC.W    20    ; number of strings
  226.  
  227.     ; item 1
  228.     DC.B    67,'Introduces the author and gives information '
  229.     DC.B    'about the application. '
  230.  
  231.     ; item 2
  232.     DC.B    122,'File menu',13,13,'Items in this menu select, '
  233.     DC.B    'save, and print Pocket Forth programs.  You can '
  234.     DC.B    'also debug and quit the application.'
  235.  
  236.     ; item 3
  237.     DC.B    213,'Displays a dialog box that allows you to select '
  238.     DC.B    'a text document.',13,13,'If the document contains a '
  239.     DC.B    'Pocket Forth program, it will be interpreted.  If '
  240.     DC.B    'the document is not a program, an interpreter error '
  241.     DC.B    'will be displayed.'
  242.  
  243.     ; item 4
  244.     DC.B    130,'Makes changes to Pocket Forth permanent.  '
  245.     DC.B    'Opened documents are not effected.'
  246.     DC.B    13,13,'        CAUTION!',13,'Use only on a copy of '
  247.     DC.B    'Pocket Forth!'
  248.  
  249.     ; item 5
  250.     DC.B    243,'              DANGER!',13,'Do not release the '
  251.     DC.B    'button!',13,13,'Unless you have installed a '
  252.     DC.B    'debugging application you will get a bomb box!  '
  253.     DC.B    'You can then use the "Resume" (or "Continue") '
  254.     DC.B    'button to quit.',13,13,'Enters an installed '
  255.     DC.B    'debugger, such as TMON or Macsbug.'
  256.  
  257.     ; item 6
  258.     DC.B    66,'Beep the speaker.',13,13,'Printing is left as an '
  259.     DC.B    'exercise for the reader.'
  260.  
  261.     ; item 7
  262.     DC.B    105,'Quit Pocket Forth.',13,13
  263.     DC.B    'Unless you have Saved prior to Quitting, '
  264.     DC.B    'all additions and changes will be disgarded.'
  265.  
  266.     ; item 8
  267.     DC.B    104,'Edit menu',13,13,'Paste programs into '
  268.     DC.B    'Pocket Forth.',13,13,'Also contains commands '
  269.     DC.B    'for working with text and graphics.'
  270.  
  271.     ; item 9
  272.     DC.B    39,'Nothing can be Undone, this just beeps.'
  273.  
  274.     ; item 10
  275.     DC.B    42,'You cannot Cut anything.  This just beeps.'
  276.  
  277.     ; item 11
  278.     DC.B    64,'There is nothing to Copy, this just beeps.'
  279.     DC.B    13,13,'Is this getting old?'
  280.  
  281.     ; item 12
  282.     DC.B    161,'Interpret a Pocket Forth program from the '
  283.     DC.B    'clipboard as if you had typed it in.  If the '
  284.     DC.B    'clipboard contains text that is not a program, an '
  285.     DC.B    'error will be indicated.'
  286.  
  287.     ; item 13
  288.     DC.B    43,'There is nothing to Clear, this just beeps.'
  289.  
  290.     ; item 14
  291.     DC.B    209,'Main Window.',13,13,'Type or paste Pocket '
  292.     DC.B    'Forth ‘words’ into this window.  The text is '
  293.     DC.B    'interpreted after each line and any output is '
  294.     DC.B    'displayed here.',13,13,'The prompt, ‘ok _’ ' 
  295.     DC.B    'indicates Pocket Forth is ready for your input.' 
  296.  
  297.     ; item 15
  298.     DC.B    230,'Pocket Forth is FREE!',13
  299.     DC.B    13,'Contact me at any of the following addresses:'
  300.     DC.B    13,' Email:      heilman@pc.maricopa.edu'
  301.     DC.B    13,' US Mail:    box 8345, Phoenix 85066'
  302.     DC.B    13,' CompuServe: [70566,1474]'
  303.     DC.B    13,' AOL:       cheilman'
  304.     DC.B    13,13,'Click this window to close this dialog.'
  305.  
  306.     ; item 16
  307.     DC.B    102,'Pocket Forth 0.6.3',13,13
  308.     DC.B    'This is a programming language. Use this '
  309.     DC.B    'application to create other applications.'
  310.  
  311.     ; item 17
  312.     DC.B    244,'To replace the dictionary on the disk with the '
  313.     DC.B    'dictionary image in memory, click this button.  '
  314.     DC.B    'All definitions and variables are saved in their '
  315.     DC.B    'current state.',13,13,'The old version is overwritten, '
  316.     DC.B    'so be sure to have a backup copy before you do this.'
  317.  
  318.     ; item 18
  319.     DC.B    63,'Click this button if you do not have a back-'
  320.         DC.B    'up of Pocket Forth.'
  321.  
  322.     ; item 19
  323.     DC.B    57,'The File Menu is not available under these circumstances.'
  324.  
  325.     ; item 20
  326.     DC.B    57,'The Edit Menu is not available under these circumstances.'
  327.  
  328. ; icons
  329.  
  330. .ALIGN 2
  331. RESOURCE    'ics#'    128
  332.     DC.L    $07C01830,$20084184,$43448302,$87828302
  333.     DC.L    $83028302,$47844004,$20081830,$07C00000
  334.     DC.L    $07C01FF0,$3FF87FFC,$7FFCFFFE,$FFFEFFFE
  335.     DC.L    $FFFEFFFE,$7FFC7FFC,$3FF81FF0,$07C00000
  336.  
  337. .ALIGN 2
  338. RESOURCE    'icl4'    128
  339.     DC.L    $00000000,$00000000,$0FFFFFFF,$F0000000,$00000000,$0000000F,$FF555555,$5FFF0000
  340.     DC.L    $00000000,$000000FF,$00F55555,$5555F000,$00000000,$000000FF,$000F5555,$55555F00
  341.     DC.L    $00000000,$00000000,$000F5555,$555555F0,$00000000,$00000000,$000F5555,$555555F0
  342.     DC.L    $00000000,$00000000,$000F5555,$5555555F,$00000000,$FFFFFF00,$00FF5555,$5555555F
  343.     DC.L    $0000FFFF,$000000F0,$00F01055,$5555555F,$00FF0000,$CCCCCDF0,$00F10105,$5555555F
  344.     DC.L    $0F00CCCC,$CCCCCDF0,$00FFF010,$5555555F,$0F0CCC00,$0CCCCDF0,$0F060F01,$5555555F
  345.     DC.L    $F00C0003,$32CCCDF0,$0F1FF010,$5555555F,$F0CC0033,$03CDCDF0,$FC010101,$0D55555F
  346.     DC.L    $F0C00033,$C0CDDDF0,$0FC01010,$155555F0,$F0C00333,$3CCCDCDF,$00333101,$015555F0
  347.     DC.L    $F0C00033,$CCCDDCDF,$00F31010,$1C555F00,$F0CC0C33,$CCCDDCDF,$00FC0101,$CC55F000
  348.     DC.L    $F0CCC333,$3CDDCCDF,$000FFFFC,$1C55F000,$F0CCDDCC,$DDDDCCDF,$0000000F,$CFFFFF00
  349.     DC.L    $F0CCCCDD,$DDCCCCDF,$00000000,$FF0000F0,$F0CCCCCC,$CCCCCCDF,$00000000,$F0000000
  350.     DC.L    $F0DDDDDD,$DDDDDCDF,$0000000F,$00DD0000,$F0DDDDDD,$DDDDDDF0,$00000000,$0DEEE000
  351.     DC.L    $F0DDDDDD,$DDDDDDF0,$00000000,$0DCCE000,$FFFDFFFF,$FFFFFDF0,$00000000,$0DCCE000
  352.     DC.L    $00FFF000,$00000FF0,$00000000,$DEEEEE00,$F0000000,$00000000,$00000DDD,$EEE13FAF
  353.     DC.L    $000F0000,$00000000,$0000DEEE,$EEEAFFF0,$000000F0,$00000000,$0000DEEE,$EAFF0000
  354.     DC.L    $00000000,$0F00F0FF,$0FFFFFFF,$FF000000,$00000000,$00000000,$00000000,$00000000
  355.  
  356. .ALIGN 2
  357. RESOURCE    'ics4'    128
  358.     DC.L    $00000EEE,$EE000000,$000EE00C,$CCEE0000
  359.     DC.L    $00E000C0,$C0CCE000,$0E000003,$32CCDE00
  360.     DC.L    $0E000033,$C32CCE00,$E0000033,$0CCCDDE0
  361.     DC.L    $E0000333,$3CCCCDE0,$E00C0033,$CCCCDDE0
  362.     DC.L    $E0C0C033,$CCCCDDE0,$E00CCC33,$CCCCDDE0
  363.     DC.L    $0ECCC333,$3CCDDE00,$0ECCCCCC,$CCDDDE00
  364.     DC.L    $00ECCCCC,$DDDDE000,$000EEDDD,$DDEE0000
  365.     DC.L    $00000EEE,$EE000000,$00000000,$00000000
  366.  
  367. .ALIGN 2
  368. RESOURCE    'ics8'    128
  369.     DC.L    $00000000,$00ABABAB,$ABAB0000,$00000000
  370.     DC.L    $000000AB,$AB0101F6,$F6F6ABAB,$00000000
  371.     DC.L    $0000AB01,$0101F601,$F601F608,$AB000000
  372.     DC.L    $00AB0101,$010101D8,$D8160808,$33AB0000
  373.     DC.L    $00AB0101,$0101D8D8,$F6D816F6,$08AB0000
  374.     DC.L    $AB010101,$0101D8D8,$01F6F608,$3333AB00
  375.     DC.L    $AB010101,$01D8D8D8,$D8F6F608,$0833AB00
  376.     DC.L    $AB0101F6,$0101D8D8,$F6F60808,$3333AB00
  377.     DC.L    $AB01F601,$F601D8D8,$F608F608,$3333AB00
  378.     DC.L    $AB0101F6,$F6F6D8D8,$08080808,$3333AB00
  379.     DC.L    $00ABF6F6,$08D8D8D8,$D8080833,$33AB0000
  380.     DC.L    $00ABF608,$F6080808,$08083333,$33AB0000
  381.     DC.L    $0000AB08,$08080808,$33333333,$AB000000
  382.     DC.L    $000000AB,$AB333333,$3333ABAB,$00000000
  383.     DC.L    $00000000,$00ABABAB,$ABAB0000,$00000000
  384.     DC.L    $00000000,$00000000,$00000000,$00000000
  385.  
  386. .ALIGN 2
  387. RESOURCE    'icl8'    128
  388.     DC.L    $00000000,$00000000,$00000000,$00000000,$00FFFFFF,$FFFFFFFF,$FF000000,$00000000
  389.     DC.L    $00000000,$00000000,$00000000,$000000FF,$FFFFABAB,$ABABABAB,$ABFFFFFF,$00000000
  390.     DC.L    $00000000,$00000000,$00000000,$0000FFFF,$0000FFAB,$ABABABAB,$ABABABAB,$FF000000
  391.     DC.L    $00000000,$00000000,$00000000,$0000FFFF,$000000FF,$ABABABAB,$ABABABAB,$ABFF0000
  392.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
  393.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
  394.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABABFF
  395.     DC.L    $00000000,$00000000,$FFFFFFFF,$FFFF0000,$0000FFFF,$ABABABAB,$ABABABAB,$ABABABFF
  396.     DC.L    $00000000,$FFFFFFFF,$01010101,$0101FF00,$0000FF01,$0101ABAB,$ABABABAB,$ABABABFF
  397.     DC.L    $0000FFFF,$01010101,$08080808,$0833FF00,$0000FF01,$010101AB,$ABABABAB,$ABABABFF
  398.     DC.L    $00FF0101,$01080808,$08080808,$0833FF00,$0000FFFF,$FF010101,$ABABABAB,$ABABABFF
  399.     DC.L    $00FF0108,$080801F6,$01F60808,$0833FF00,$00FF48EC,$48FF0101,$ABABABAB,$ABABABFF
  400.     DC.L    $FF010108,$010101D8,$D816F608,$0833FF00,$00FF01FF,$FF010101,$ABABABAB,$ABABABFF
  401.     DC.L    $FF010808,$0101D8D8,$01D80833,$0833FF00,$FF080101,$01010101,$0133ABAB,$ABABABFF
  402.     DC.L    $FF010801,$F601D8D8,$F601F633,$3308FF00,$00FF0801,$01010101,$01ABABAB,$ABABFF00
  403.     DC.L    $FF0108F6,$01D8D8D8,$D8F60808,$330833FF,$0000D8D8,$D8010101,$0101ABAB,$ABABFF00
  404.     DC.L    $FF0108F6,$F601D8D8,$F6080833,$330833FF,$0000FFD8,$01010101,$0108ABAB,$ABFF0000
  405.     DC.L    $FF0108F6,$08F6D8D8,$08F60833,$330833FF,$0000FF08,$01010101,$3301ABAB,$FF000000
  406.     DC.L    $FF010808,$F6D8D8D8,$D8083333,$080833FF,$000000FF,$FFFFFF08,$0108ABAB,$FF000000
  407.     DC.L    $FF010808,$33330808,$33333333,$080833FF,$00000000,$000000FF,$01FFFFFF,$FFFF0000
  408.     DC.L    $FF010808,$08083333,$33330808,$080833FF,$00000000,$00000000,$FFFF0000,$0000FF00
  409.     DC.L    $FF010808,$08080808,$08080808,$080833FF,$00000000,$00000000,$FF000000,$00000000
  410.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F90833FF,$00000000,$000000FF,$0000FAFA,$00000000
  411.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F933FF00,$00000000,$00000000,$00FAFBFC,$FC000000
  412.     DC.L    $FF013333,$33333333,$33333333,$3333FF00,$00000000,$00000000,$00FAF6F6,$FC000000
  413.     DC.L    $FFFFFF33,$FFFFFFFF,$FFFFFFFF,$FF33FF00,$00000000,$00000000,$00FAF6F6,$FC000000
  414.     DC.L    $0000FFFF,$FF000000,$00000000,$00FFFF00,$00000000,$00000000,$FAFBFCFC,$FCFC0000
  415.     DC.L    $FF000000,$00000000,$00000000,$00000000,$00000000,$00FAFAFA,$FBFCFC05,$D8FFFDFF
  416.     DC.L    $000000FF,$00000000,$00000000,$00000000,$00000000,$FAFBFBFC,$FCFCFCFD,$FFFFFF00
  417.     DC.L    $00000000,$0000FF00,$00000000,$00000000,$00000000,$FAFCFCFC,$FCFDFFFF,$00000000
  418.     DC.L    $00000000,$00000000,$00FF0000,$FF00FFFF,$00FFFFFF,$FFFFFFFF,$FFFF0000,$00000000
  419.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  420.  
  421.     END
  422.